home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / perl5 / auto / RPC / XML / Procedure / reload.al < prev   
Encoding:
Text File  |  2008-11-04  |  1.2 KB  |  41 lines
  1. # NOTE: Derived from blib/lib/RPC/XML/Procedure.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package RPC::XML::Procedure;
  5.  
  6. #line 758 "blib/lib/RPC/XML/Procedure.pm (autosplit into blib/lib/auto/RPC/XML/Procedure/reload.al)"
  7. ###############################################################################
  8. #
  9. #   Sub Name:       reload
  10. #
  11. #   Description:    Reload the method's code and ancillary data from the file
  12. #
  13. #   Arguments:      NAME      IN/OUT  TYPE      DESCRIPTION
  14. #                   $self     in      ref       Object of this class
  15. #
  16. #   Returns:        Success:    $self
  17. #                   Failure:    error message
  18. #
  19. ###############################################################################
  20. sub reload
  21. {
  22.     my $self = shift;
  23.  
  24.     return ref($self) . '::reload: No file associated with method ' .
  25.         $self->{name} unless $self->{file};
  26.     my $tmp = $self->load_XPL_file($self->{file});
  27.  
  28.     if (ref $tmp)
  29.     {
  30.         # Update the information on this actual object
  31.         $self->{$_} = $tmp->{$_} for (keys %$tmp);
  32.         # Re-calculate the signature table, in case that changed as well
  33.         return $self->make_sig_table;
  34.     }
  35.  
  36.     return $tmp;
  37. }
  38.  
  39. # end of RPC::XML::Procedure::reload
  40. 1;
  41.